home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
0195.ZIP
/
WINDOWS.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1984-12-04
|
2KB
|
56 lines
{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.
}
{$I windows.lib}
const
Win1 : corners = (5,5,40,20);
Win2 : corners = (45,3,75,18);
MainWin : corners = (1,1,80,25);
var
Win3 : corners;
N : byte;
begin
DoFrame(Win1,'═','║');
DoFrame(Win2,'~','!');
DoWindow(Win1);
Write('Writing in window number one, framed in double lines.');
Write('Press a key.');
repeat until keypressed;
DoWindow(Win2);
Write('Now writing in window number two, framed in tildes and ');
Write('exclamation points.');
Write('Press a key.');
repeat until keypressed;
DoWindow(Win1);
ClrScr;
Write('Enter coordinates for yet another window. ');
DoWindow(Win2);
ClrScr;
WriteLn('If they are OK, that window will appear.');
Write('Upper Left X: ');
read(Win3[1]);
WRiteLn;
Write('Upper Left Y: ');
read(Win3[2]);
WRiteLn; Write('Lower Right X: ');
read(Win3[3]);
WRiteLn; Write('Lower Right Y: ');
read(Win3[4]);
IF (Win3[1] > 1) and (Win3[2] > 1) and (Win3[3] < 79) and (Win3[4] < 24)
and (Win3[3] - Win3[1] > 2) and (Win3[4] - Win3[2] > 2) then
begin
DoFrame(Win3,#196,#179);
DoWindow(Win3);
ClrScr;
repeat
Write('....WINDOW!.....');
until keypressed;
end;
DoWindow(MainWin);
end.